home *** CD-ROM | disk | FTP | other *** search
- %!-Adobe-1.0
- %%Title: landscape.ps
- %%Creator: Amanda Walker <amanda@intercon.com>
- %%CreationDate: 5 April 1990
- /s 256 string def
- 72 720 translate -90 rotate 0 468 moveto /Courier findfont [8 0 0 7 0 0] makefont setfont
- /spacewidth ( ) stringwidth pop def{ currentfile s readline { gsave
- { ( ) search exch show not { exit } if
- pop currentpoint exch spacewidth div .49 add cvi
- 8 add dup 8 mod sub spacewidth mul exch moveto } loop
- grestore 0 -7 rmoveto currentpoint exch pop 7 lt {
- showpage 72 720 translate -90 rotate 0 468 moveto } if
- } { currentpoint exch pop 468 lt { showpage } if exit } ifelse } loop
-